BBS in a Box 4/BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso/Files/Hyper/Hyperj-Hz/HyperTest.cpt/HyperTest/HyperTest/stack.txt

Text File | 1988-04-16 | 5.5 KB | 186 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2680
-- card count: 4
-- first card id: 2933
-- list block id: 4809
-- print block id: 3543
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 46720 bytes
-- stack block size: 5120 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on resume
  getHomeInfo
  pass resume -- to a resume XCMD, if present
end resume

on getHomeInfo
  global stacks,applications,documents,userName
  set lockScreen to true
  set lockMessages to true
  push this card
  go to card "User Preferences" of stack "Home"
  put card field "User Name" into userName
  set userLevel to card field "User Level"
  set powerKeys to the hilite of button "Power Keys"
  set blindTyping to the hilite of button "Blind Typing"
  put field "paths" of card "stacks" into stacks
  put field "paths" of card "applications" into applications
  put field "paths" of card "documents" into documents
  pop card
  set lockScreen to false
  set lockMessages to false
end getHomeInfo


on openstack
  global blind,string,allow
  gethomeinfo
  set lockscreen to true
  set lockmessages to true
  set lockrecent to true
  push card
  go card 1
  if card field"Quiet!" is not "True" and card field"Quiet!" is not "False" then
    put empty into msg box
    distmsg
    if the message box is not empty then
      put false into card field "Quiet!"
    else
      answer"Did you delete the “distmsg” handler?" with "Yes" or "No" or "Huh?"
      if it is "Yes" then put"NEVER click “Initialize”! Also, don’t distribute this stack."
      if it is not"Yes" then put true into card field "Quiet!" else put "False" into card field "Quiet!"
    end if
  end if
  pop card
  set lockscreen to false
  set lockmessages to false
  set lockrecent to false
  put false into allow
  put empty into string
  hide msg box
  hide menubar
  if (the freesize of this stack) div 1024 > 40 then
    put"The size of this stack is"&&(the size of this stack) div 1024& "K. It could be reduced to about"&&((the size of this stack)-(the freesize of this stack)) div 1024&"K."
    answer"May I compact it?" with"No" or "Yes"
    if it is "Yes" then domenu"Compact stack"
    put "The size of this stack is now"&& the size of this stack div 1024&"K."
  end if
end openstack

on newcard
  if the number of the target is the number of last card or the number of the target is 4 then
    domenu"Delete Card"
    put"Please don’t create a new card from there."
    go card 1
  end if
end newcard


--Beginning of LastPathComponent
function LastPathComponent name
repeat with i = the length of name down to 1
  if character i of name is ":" then exit repeat
end repeat
if i is 1 then
  if first character of name is ":" then
    put 2 into i
  end if
else
  add 1 to i -- skip the colon
end if
put empty into lastpath
repeat with j = i to the length of name
  put character j of name after lastpath
end repeat
return lastpath
end LastPathComponent
--End of LastPathComponent
on Quiet
  put"If you edit anything, please don’t distribute this stack."
  answer"Get rid of all distribution messages?" with "Yes" or "No"
  if it is "No" then exit Quiet
  set lockscreen to true
  set lockmessages to true
  set lockrecent to true
  push card
  go card 1
  deletemsg
  go card (the number of cards - 2)
  deletemsg
  go next card
  deletemsg
  go next card
  deletemsg
  go card 1
  put "true" into card field "Quiet!"
  pop card
end quiet
on deletemsg
  put the script of this card into script
  put offset ("on choose",script) into off
  add 20 to off
  put"pass choose"&return after char off of script
  put offset("on distmsg",script) into off
  add 10 to off
  put"exit distmsg"&return after char off of script
  set the script of this card to script
end deletemsg